home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 41
/
Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso
/
Aminet
/
gfx
/
edit
/
AmiCAD_2.07.lha
/
AmiCAD
/
ARexx
/
InitObjets.AmiCAD
< prev
next >
Wrap
Text File
|
1999-11-25
|
828b
|
21 lines
/* Initialisation de variables permettant le test des objets */
options results /* indispensable pour récupérer le résultat des macros */
signal on error /* pour l'interception des erreurs */
signal on syntax
'INIT(COMPOSANT,FIL,ARC,TEXTE,REFERENCE,VALEUR,JONCTION,POINTILLES,BUS,ELLIPSE,CERCLE,INPUT,OUTPUT,LIGNE_DOUBLE,TRAIT,BOITE,BOITE_PLEINE,TRIANGLE,TRIANGLE_PLEIN)'
'COMPOSANT=1:FIL=2:ARC=3:TEXTE=4:REFERENCE=5:VALEUR=6:JONCTION=7:POINTILLES=8:BUS=9:ELLIPSE=10:CERCLE=10:INPUT=11:OUTPUT=12:LIGNE_DOUBLE=15:TRAIT=21:BOITE=22:JONCTION_CARREE=23:BOITE_PLEINE=24:TRIANGLE=26:TRIANGLE_PLEIN=27'
exit
/* Traitement des erreurs, interruption du programme */
syntax:
erreur=RC
'MESSAGE("Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
exit
error:
'MESSAGE("Erreur en ligne 'SIGL'")'
exit